# Read the CSV file
work <- read.csv("workLog.csv")

# Convert Date column to Date type
work$Date <- as.Date(work$Date, format = "%m/%d")

# Create the bar chart
ggplotly(
ggplot(work, aes(x = Date, y = Time, text=Desc)) +
  geom_bar(stat = "identity") +
  labs(x = "Date (MM/DD)", y = "Time (Minutes)", title="Work Log"))